home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / oracle / puzz_19.dxr / 00114_MOVIE SCRIPT.ls < prev    next >
Encoding:
Text File  |  1994-11-08  |  8.1 KB  |  253 lines
  1. on initPuzzle
  2.   global difficultyLevel, csrChannel, numTiles, tileStartCh, drag1Ch, drag2Ch, tileColors, tileFacing, tileOrientation, orientationIndex, puzzleNum, mouseMask, hideCursor, puzzleActive
  3.   clearVars(1)
  4.   set difficultyLevel to 2
  5.   installMenu(cast "JEWEL menu")
  6.   if the windowList = EMPTY then
  7.   end if
  8.   set hideCursor to 0
  9.   set puzzleActive to 1
  10.   set puzzleNum to 19
  11.   set numTiles to 9
  12.   set tileStartCh to 2
  13.   set drag1Ch to 45
  14.   set drag2Ch to 44
  15.   set tileOrientation to [[1, 2, 1, 2], [1, 3, 1, 3], [4, 3, 4, 3], [4, 2, 4, 2]]
  16.   repeat with a = tileStartCh to tileStartCh + numTiles - 1
  17.     puppetSprite(a, 1)
  18.     set the immediate of sprite a to 1
  19.   end repeat
  20.   set the immediate of sprite drag1Ch to 1
  21.   set the visible of sprite drag1Ch to 0
  22.   set the constraint of sprite drag1Ch to 46
  23.   if difficultyLevel = 1 then
  24.     set tileCast to ["1.0", "2.0", "3.0", "4.0", "5.0", "6.0", "7.0", "8.0", "9.0"]
  25.   else
  26.     if difficultyLevel = 2 then
  27.       set tileCast to ["1.3", "9.9", "6.9", "3.9", "4.6", "5.3", "8.6", "2.6", "7.3"]
  28.     end if
  29.   end if
  30.   repeat with a = 1 to 9
  31.     preLoadCast(the number of cast getAt(tileCast, a))
  32.   end repeat
  33.   resetPuzzle()
  34.   if the machineType <> 256 then
  35.     if not objectp(mouseMask) then
  36.       set mouseMask to mouse(mnew)
  37.     end if
  38.   end if
  39. end
  40.  
  41. on resetPuzzle
  42.   global difficultyLevel, numTiles, tileStartCh, drag1Ch, tileColors, tileFacing, tileOrientation, orientationIndex
  43.   if difficultyLevel = 1 then
  44.     set tileColors to [[2, 3, 1, 3], [2, 2, 2, 3], [1, 3, 2, 2], [1, 2, 1, 3], [3, 2, 2, 2], [2, 3, 1, 2], [2, 2, 1, 3], [1, 2, 2, 2], [2, 1, 2, 3]]
  45.     set tileFacing to [[1, 2, 1, 2], [1, 2, 1, 2], [1, 2, 1, 2], [1, 2, 1, 2], [1, 2, 1, 2], [1, 2, 1, 2], [1, 2, 1, 2], [1, 2, 1, 2], [1, 2, 1, 2]]
  46.     set orientationIndex to [1, 1, 1, 1, 1, 1, 1, 1, 1]
  47.     set tileCast to ["6.0", "8.0", "7.0", "5.0", "4.0", "9.0", "3.0", "1.0", "2.0"]
  48.   else
  49.     if difficultyLevel = 2 then
  50.       set tileColors to [[2, 1, 2, 2], [3, 1, 2, 2], [3, 1, 3, 2], [2, 1, 3, 2], [2, 2, 3, 2], [3, 1, 2, 1], [2, 3, 2, 2], [2, 3, 2, 1], [2, 1, 3, 2]]
  51.       set tileFacing to [[1, 3, 1, 3], [4, 2, 4, 2], [4, 2, 4, 2], [4, 2, 4, 2], [4, 3, 4, 3], [1, 3, 1, 3], [4, 3, 4, 3], [4, 3, 4, 3], [1, 3, 1, 3]]
  52.       set orientationIndex to [2, 4, 4, 4, 3, 2, 3, 3, 2]
  53.       set tileCast to ["1.3", "9.9", "6.9", "3.9", "4.6", "5.3", "8.6", "2.6", "7.3"]
  54.     end if
  55.   end if
  56.   repeat with a = 1 to numTiles
  57.     set the castNum of sprite (tileStartCh + a - 1) to the number of cast getAt(tileCast, a)
  58.     updateCursor()
  59.   end repeat
  60. end
  61.  
  62. on swapChannel chA, chB
  63.   set the locH of sprite chA to the locH of sprite chB
  64.   set the locV of sprite chA to the locV of sprite chB
  65.   set the castNum of sprite chA to the castNum of sprite chB
  66.   set the visible of sprite chA to 1
  67.   set the visible of sprite chB to 0
  68. end
  69.  
  70. on swapTileParameters tileACh, tileBCh
  71.   global tileColors, tileFacing, orientationIndex
  72.   set tempA to getAt(tileColors, tileACh - 1)
  73.   set tempB to getAt(tileColors, tileBCh - 1)
  74.   setAt(tileColors, tileACh - 1, tempB)
  75.   setAt(tileColors, tileBCh - 1, tempA)
  76.   set tempA to getAt(tileFacing, tileACh - 1)
  77.   set tempB to getAt(tileFacing, tileBCh - 1)
  78.   setAt(tileFacing, tileACh - 1, tempB)
  79.   setAt(tileFacing, tileBCh - 1, tempA)
  80.   set tempA to getAt(orientationIndex, tileACh - 1)
  81.   set tempB to getAt(orientationIndex, tileBCh - 1)
  82.   setAt(orientationIndex, tileACh - 1, tempB)
  83.   setAt(orientationIndex, tileBCh - 1, tempA)
  84. end
  85.  
  86. on turnTile whichTile, direction
  87.   global tileColors, tileFacing, tileOrientation, orientationIndex, drag1Ch, mouseMask
  88.   if direction = -1 then
  89.     set savedElement to 4
  90.   else
  91.     set savedElement to 1
  92.   end if
  93.   set tempColor to getAt(getAt(tileColors, whichTile - 1), savedElement)
  94.   if direction = -1 then
  95.     repeat with a = 4 down to 2
  96.       setAt(getAt(tileColors, whichTile - 1), a, getAt(getAt(tileColors, whichTile - 1), a - 1))
  97.     end repeat
  98.   else
  99.     repeat with a = 1 to 3
  100.       setAt(getAt(tileColors, whichTile - 1), a, getAt(getAt(tileColors, whichTile - 1), a + 1))
  101.     end repeat
  102.   end if
  103.   setAt(getAt(tileColors, whichTile - 1), 5 - savedElement, tempColor)
  104.   set a to getAt(orientationIndex, whichTile - 1)
  105.   set a to a - (direction * 1)
  106.   if a = 5 then
  107.     set a to 1
  108.   else
  109.     if a = 0 then
  110.       set a to 4
  111.     end if
  112.   end if
  113.   setAt(orientationIndex, whichTile - 1, a)
  114.   setAt(tileFacing, whichTile - 1, getAt(tileOrientation, a))
  115.   set tempName to the name of cast the castNum of sprite whichTile
  116.   set x to value(char offset(".", tempName) + 1 to length(tempName) of tempName)
  117.   set tempName to char 1 to offset(".", tempName) of tempName
  118.   swapChannel(drag1Ch, whichTile)
  119.   puppetSound("Rotate Tile")
  120.   updateCursor()
  121.   if direction = -1 then
  122.     repeat with a = 1 to 4
  123.       set the castNum of sprite drag1Ch to the number of cast (tempName & string(x))
  124.       updateCursor()
  125.       startTimer()
  126.       repeat while the timer <= 10
  127.       end repeat
  128.       set x to x + 1
  129.       if x > 11 then
  130.         set x to 0
  131.       end if
  132.     end repeat
  133.   else
  134.     repeat with a = 4 down to 1
  135.       set the castNum of sprite drag1Ch to the number of cast (tempName & string(x))
  136.       updateCursor()
  137.       startTimer()
  138.       repeat while the timer <= 10
  139.       end repeat
  140.       set x to x - 1
  141.       if x < 0 then
  142.         set x to 11
  143.       end if
  144.     end repeat
  145.   end if
  146.   swapChannel(whichTile, drag1Ch)
  147.   updateCursor()
  148. end
  149.  
  150. on checkPuzzle
  151.   global tileColors, tileFacing, solvedPuzzles, puzzleNum
  152.   if getAt(getAt(tileColors, 1), 3) <> getAt(getAt(tileColors, 2), 1) then
  153.     exit
  154.   end if
  155.   if getAt(getAt(tileColors, 2), 3) <> getAt(getAt(tileColors, 3), 1) then
  156.     exit
  157.   end if
  158.   if getAt(getAt(tileColors, 4), 3) <> getAt(getAt(tileColors, 5), 1) then
  159.     exit
  160.   end if
  161.   if getAt(getAt(tileColors, 5), 3) <> getAt(getAt(tileColors, 6), 1) then
  162.     exit
  163.   end if
  164.   if getAt(getAt(tileColors, 7), 3) <> getAt(getAt(tileColors, 8), 1) then
  165.     exit
  166.   end if
  167.   if getAt(getAt(tileColors, 8), 3) <> getAt(getAt(tileColors, 9), 1) then
  168.     exit
  169.   end if
  170.   if getAt(getAt(tileColors, 1), 4) <> getAt(getAt(tileColors, 4), 2) then
  171.     exit
  172.   end if
  173.   if getAt(getAt(tileColors, 2), 4) <> getAt(getAt(tileColors, 5), 2) then
  174.     exit
  175.   end if
  176.   if getAt(getAt(tileColors, 3), 4) <> getAt(getAt(tileColors, 6), 2) then
  177.     exit
  178.   end if
  179.   if getAt(getAt(tileColors, 4), 4) <> getAt(getAt(tileColors, 7), 2) then
  180.     exit
  181.   end if
  182.   if getAt(getAt(tileColors, 5), 4) <> getAt(getAt(tileColors, 8), 2) then
  183.     exit
  184.   end if
  185.   if getAt(getAt(tileColors, 6), 4) <> getAt(getAt(tileColors, 9), 2) then
  186.     exit
  187.   end if
  188.   if getAt(getAt(tileFacing, 1), 3) <> getAt(getAt(tileFacing, 2), 1) then
  189.     exit
  190.   end if
  191.   if getAt(getAt(tileFacing, 2), 3) <> getAt(getAt(tileFacing, 3), 1) then
  192.     exit
  193.   end if
  194.   if getAt(getAt(tileFacing, 4), 3) <> getAt(getAt(tileFacing, 5), 1) then
  195.     exit
  196.   end if
  197.   if getAt(getAt(tileFacing, 5), 3) <> getAt(getAt(tileFacing, 6), 1) then
  198.     exit
  199.   end if
  200.   if getAt(getAt(tileFacing, 7), 3) <> getAt(getAt(tileFacing, 8), 1) then
  201.     exit
  202.   end if
  203.   if getAt(getAt(tileFacing, 8), 3) <> getAt(getAt(tileFacing, 9), 1) then
  204.     exit
  205.   end if
  206.   if getAt(getAt(tileFacing, 1), 4) <> getAt(getAt(tileFacing, 4), 2) then
  207.     exit
  208.   end if
  209.   if getAt(getAt(tileFacing, 2), 4) <> getAt(getAt(tileFacing, 5), 2) then
  210.     exit
  211.   end if
  212.   if getAt(getAt(tileFacing, 3), 4) <> getAt(getAt(tileFacing, 6), 2) then
  213.     exit
  214.   end if
  215.   if getAt(getAt(tileFacing, 4), 4) <> getAt(getAt(tileFacing, 7), 2) then
  216.     exit
  217.   end if
  218.   if getAt(getAt(tileFacing, 5), 4) <> getAt(getAt(tileFacing, 8), 2) then
  219.     exit
  220.   end if
  221.   if getAt(getAt(tileFacing, 6), 4) <> getAt(getAt(tileFacing, 9), 2) then
  222.     exit
  223.   end if
  224.   if the windowList = [] then
  225.     puppetSound("WELLRTN.SND", 1)
  226.     updateStage()
  227.   else
  228.     tell the stage
  229.       puzzleDone()
  230.     end tell
  231.     updateCursor()
  232.   end if
  233. end
  234.  
  235. on doLoads
  236.   global difficultyLevel, numTiles
  237.   if the windowList = [] then
  238.     set difficultyLevel to 2
  239.   end if
  240.   preLoadCast(the number of cast "1.0", the number of cast "9.11")
  241. end
  242.  
  243. on renameCast
  244.   set theCast to 1
  245.   repeat with a = 1 to 9
  246.     repeat with b = 0 to 11
  247.       set tempName to string(a) & "." & string(b)
  248.       set the name of cast theCast to tempName
  249.       set theCast to theCast + 1
  250.     end repeat
  251.   end repeat
  252. end
  253.